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ABSTRACT 


THE DZB*K DIAGNOSTIC PROGRAM IS #PITTEN TO BE USED AS AN AID 
TO HARDWARE DEBUGGING AND MAINTENANCE CF THE ™792YK 

VT20 BOOTSTRAP LCADER), THIS PROGRAM “AY ALSO BE USED 

AS A DATA PELIABILITY TEST, 


THE AVAILABLE TESTS ARE 
PRGO © LOGIC TESTS 
PFG1 © ROM DATA DUMP 
PRG2 © SINGLE ROY ADDPESS READ CATA LOOP 


FEGUIRE“ENTS 

EQUIPMENT 

A, POP 11 FAMILY CENTRAL PPOCESSOR/#ITH VT20 
B, “792eYK “MODULE 

STORAGE 

THIS PROGRAY USES CORE 0°4100(8) 

LOADING AND STARTING PROCEDURE 


LOAD PRCGRAP INTO MEMORY USING ABS LOADER, 

LOAD ADDRESS s 00200 

SET SWR & DESIRED STANDARD PDPeii DIAGNOSTIC OPTIO*S (SEE 
SECT 4,0) 

NOTES ALL SwITCHES © 0 SELECTS AND STARTS PROGPRAY © 

DEPRESS START, THE PROGRAM WILL THEN TYPE OUT INSTRUCTIONS, 
USER RESPONSES ARE VIA THE "TUBE 0" KEYBOARD (CARRIAGE 
TERMINATES THE RESPONSE) 

TO RESTART THE SELECTED PROGRAM LOAD ADDRESS = 000210 AND 
DEPRESS STAPT 


SWITCH SETTINGS 


Swi5 1 OP UP HALT ON ERROR 

Swi4 1 OR UP SCOPE LOOP 

Swi3 1 OF UF INHIBIT FRINTOUT 

SWi2 1 OR UP INHIBIT TRACE TRAPPING (NOT USED) 
Swii 1 OF UP INHIBIT ITERATION 


ALL 
RETURN 
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5. PROGRA” DESCRIPTICNS 
5,1 PRGO © LOGIC TESTS 
THE LOGIC TESTS CONSIST OF 4 POUTINES TC TEST THE *“792YK 


LOGIC, PPOGPAM 0 LOOPS WITHIN ITSELF UTIL A “E® PPOGRAY NUMBEP 
IS PROVIDED 1,E, PRGes ? 


5,1,1 ROUTINE DESCRIPTIONS 
POUTINE TESTS 
Ti ADDPESSABILITY OF M792YK 
T2 DATA RELIABILITY 
T3 THAT M792YK TIMES OUT WHEN REFERENCED BY A 
DATIP BUS CYCLE 
14 THAT DATA PEAD IS COPRECT 
$,1,2 ERROR PRINTOUT 


TF A RCUTINE FAILS AND THE INHIBIT PRINTOUT S¥ITCH IS NOT 
ENABLED (S613) A PRINTOUT RESULTS, I,E, THE Pc AT THE TIME OF 
FAILURE 18 TYPED, 


IF AN ERROF OCCURS IN T4, THE RO” DATAs CORPECT DATA. AnD 
THE ADORESS OF EACH IS TYPED OUT (THE ERPOR TYPECUT CANNOT 
BE DISABLED), THE FORMAT I8 


ROM ADDRESS/ROM DATA 
IMAGE ADDRESS@CORRECT DATA 


5.2 PRGi1 © ROM DATA DUMP 


THIS PROGRAY TYPES OUT THE 32 WORDS OF RO* DATA AND ThES 
TYPES OUT °PPGes* REQUESTING WHAT PROGRAM TO PERFORM NEXT, 


$,3 PRG2 © SINGLE ROM ADDRESS READ DATA LOOP 
THIS PROGRAM CONTINUOUSLY READS DATA FRO¥ A TYPED IN ROM 
ADDRESS, TO CHANGE THE ADDRESS TYPE IN A NEW ADDRESS, (MUST 
BE EVEN) FOLLOWED BY A CARRIAGE PETURN, 


NOTES THE ROM WORDS STARTING AT LOCATION 4000 ARE DESIGNATED 
AS FOLLOWS @ 


LOCATION CONTENTS WOPD NO, 
4000 012701 0 
4002 160000 é 
4004 012702 4 
4006 000006 6 
4010 012703 10 

ETC, 


en 


( 
TEST DZP¥K VT20 BOOTSTRAP LOADER WACY11,.624 PieJANo74 10505 PAGE 1 : ( 
DZRYK,SPC 
#LOAD ALDPESS#0200 q 
SDEPRESS STAR1 
sPESTAPT ADDOPESS*0210 
pSTACK POINTER 3S AT $00 q 


“CALL SCPREGS,SCPVECS 

eMCALL 6<CMTAG ( 
DEFINITIONS AND PEGISTER ASSIGNMENTS 
$GENERAL PEGISTE? ASSIGNMENTS 





eoocce ROSE%O ( 
000001 Risti 
000002 R2882 
000003 R388} ( 
000004 P4804 
000005 PSe85 
000006 SPste ( 
000007 PCs8? 
000000 P108%0 
000001 Riise! ( 
000002 Ri2882 
000003 Ri3se3 
000004 P14se4 ( 
000608 P1585 

SREGISTER ADDRESSES ( 
177776 PSWs 177776 sPROCESSER STATUS WORD 
177774 SLRs 177776 SSTACK LIMIT REGISTER (11/40,11745) 
177772 PIRGQS§ 177772 PROGRAM INTERRUPT REQ, (11745) ( 
177770 UBREAKs 177770 SMICRO@BREAK REGISTER (31745) 
177570 ShRs 177570 SWITCH REGISTER 
177570 DISPLAY#177570 DISPLAY REGISTER (11745) ( 
177560 TKSe 177860 SKEYBOARD CSR 
177562 TKBs 177562 PKEYBOARD DATA BUFFER REGISTER 
177564 TPSs 177564 sTELEPRINTER CSP ( 
177566 TPBs 177566 NTELEPRINTER DATA BUFFER REGISTER 
170334 FKS = 170334 yTUBE © KEYBOARD CSR 
170336 FKB ® 170336 TUBE O KEYBOARD DATA 
170304 VTC = 170304 sTUBE O DISPLAY CSR 
170302 VIS ® 170302 HTUBE 0 DISPLAY STARTING ADR, 

sVECTOR ADDRESSES 
000004 ERRVECS4 pADDRESS OF ERROR VECTOR 
000010 RESVEC810 pADDRESS OF RESERVED INST, TRAP VECTOR 
000014 TBITVEC#14 SADDRESS OF °T°® BIT TRAP VECTOR 
600014 TRIVEC#14 sADDRESS OF °TRACE® TRAP VECTOR 
000014 BPTVEC#14 sADORESS OF °BREAKPOINT® TRAP VECTOR 
000020 IOTVEC#820 pADDRESS OF IOT TRAP VECTOR 
000024 PFVEC#24 pADDRESS OF POWER FAIL TRAP VECTOR 
000030 EMTVEC#30 ADDRESS OF EMT VECTOR 
000034 TRAPVEC#34 SADDRESS OF TRAP VECTOR 
000060 TKVEC® 60 SADDRESS OF TTY KEYBOARD INT, VECTOR 
000064 TPVEC S64 pADDRESS OF TTY PRINTER INTERRUPT VECTOR 
900114 PARVEC® 114 ADDRESS OF “A/F PARITY ERROR VECTCR 
000240 PIRVEC#240 pADDRESS OF PIRQ VECTOR 


————————— 


TEST [ZP¥K VT20 BOOTSTRAP LUADEF MACY11,024 2i1eJAne74 10805 PAGE lel 


OZARK SEC 
600244 FREVFC 3244 PADOPESS CF FLOATING POINT INT, VECTOR 
000250 »©VEC#8250 pADDPESS OF YE“ “GYT ERKOP TRAP VECTCR 
000320 FKVEC & 326 
00026 0220 
009020 003234 oeorRe VToUT 
000022 000240 eAOkO 240 
009030 2830 
000030 002764 o SCOPE 
000032 0340 340 
000034 103074 oKLT 
000036 000000 0 
pEQUATE STATEMEKTS 
000500 STKPTRs 500 
000004 TYPEs 10T 
104400 KLTs TRAP 
104000 SCOPES E¥*T 
000206 23200 
009200 000167 001132 STARTis JMP PRMTPS 
000210 28210 
900210 000167 001210 START3! JMP RESTAPT 
061300 221300 
s#ORDS LOADED BY °SCCPE’ 
001300 00000 SCPBLKS ,*ORD 0 #CONTAINS PASS COUNT 
001300 ICNTSSCPBLK 
001302 000002 ITCNTs ,#ORD 2 sCONTAINS SUBTEST ITERATION COUNT 
001304 000004 LASTPCt ,wORD 4 SCONTAINS LAST SCOPE CALL PC 
001306 000000 EPCs o*ORD 0 SCONTAINS SCOPE RETURN FOR ERRORS 
001310 000000 ERRFLGS§ ,wORD 0 SCONTAINS ERPOP FLAG 
001312 000000 TICKSs ,hORD 0 sCONTAINS TICK COUNT FOR CLOCKS 
001314 177560 TNCSRt ,vORE 177560 sADDRESS OF INPUT CSR 
001316 177562 INDATs ,WORD 177562 sADORESS OF INPUT DEVICE DATA BUFFER REG 
001320 000040 WORDS: 32, 
001322 004000 IMAGEs 4000 
001324 000006 TEMP? 0 
001326 173000 ROMADDs 173000 sFIRST ADDRESS OF DATA 
901330 001442 PRGTABS PRGO 
001332 002202 PRG) 
001334 02322 PRG2 
001336 912706 000500 PRMTRS? MOV SSTKPTR,%6 9SET STACK PTR 
001342 005067 000040 CLR PRGNUY 
001346 004767 001750 JSR %7,RESBF sOVERLAY PRINTOUT AREA 
001352 610467 166724 MCV R4,VTS 
001356 912767 000001 166720 MOV #1,VvTC 
001364 005737 177570 TST @eSuR 
001370 901415 BEG PESTAPT 
001372 00004 FIXEDs TYPE 
001374 903553 MHED 
001376 000004 TYPE 


901400 003365 Me 


TEST Czewe 
OZPéK SFC 


c01402 
001406 
001410 
on1412 


001414 
001422 


001424 
901430 
001434 
901436 


504567 
00000 
00004 
903414 


26727 
903345 


005067 
916700 
006300 
900170 


VT20 KOOTSTRAP LOADEF 


001120 


177766 


000sSs0 
177752 


001330 


000002 


VACY11,.624 2ieJAne74 10305 
JSP §,RECCD 
PRGNUFS 0 
TYPE 
"6 
CYP PRGNUM,82 
BGT PRYTPS 
PESTAPTSCLP PCAT 
“CV PRGNUM,80 
ASL $0 
JMP @PFRGTAB(0) 
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SRECEIVE CATA AND PUT 
sIT 4YEPE 


9SEE IF LEGAL PROGFAY NU“BER 
pIF NOT PETYPE GUESTION 


sCLEAP PASS COUNT 
1GET PRCGPAM @ 
#SHIFT PROGFA» 6 
9G0 TC PROGRAY 


TEST PZEYK VT20 BOOTSTRAP LOADER 


DZPMK SFC 


"01442 
001446 
001484 


001462 
001466 
901472 
001476 
001504 
001506 
001510 
001514 
001516 
001520 
001524 
001530 
001832 
001534 
001536 
001540 


001542 
001544 


001546 
001552 
001556 
001564 
001570 
001572 
001576 
001602 
001604 
001606 
901610 
901614 
901616 
001620 
001622 
001624 
001626 
001630 
001632 
001634 
001636 
001640 
001642 
001644 
001646 
001650 





905067 
012767 
016737 


012706 
916700 
916701 
012767 
911003 
005872¢ 
064067 
021010 
132020 
164067 
062700 
005303 
001364 
900403 
022626 
104400 


900760 
104000 


016700 
01670) 
012767 
005067 
011003 
062067 
166703 
001402 
104400 
000766 
044067 
001302 
104400 
000773 
021010 
001402 
104400 
000774 
122040 
901402 
104400 
000774 
005720 
008301 
001346 
104000 


177632 
001462 
17762u 


000500 
177634 
177622 
001536 


177610 


177600 
000002 


177584 
177542 
000006 
177534 


177526 
177522 


177510 


177630 
177570 


176300 


176220 


MACY11,624 


Z2ieJAreo74 


sPROGRA* 0 LOGIC TESTS 


PPRGOS CLR 
PFGORs *¥*CV 
“ny 


IChT 


811 ,LASTPC 
TCATe@SlL ISPLAY 


19305 
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sCLEAR PASS COURT 
sSET RETUFN ADDFESS FOR SCOPE 
IDISPLAY PASS COUNT 


sTEST1 TEST ABILITY TO PEFFRENCE RO” wITHOUT TIMING OUT 


Tis “OV 
“OV 
“ov 
“OV 

TIAs “OV 
TST 
aod 
Cc™P 
BIT# 
SUB 
ADD 
DEC 
BhE 
BR 

ERRORi: CrvP 
HLT 


T1Bs SCOPE 


sTEST2 
T23 MOV 
“OV 


“CV 
T2A8 CLR 


ERPOR2! HLT 
T2B3 BIC 


T2Cs CMP 


T2Ds 


T2Es TST 


@STKPTR,SP 


PFOYADND,%9 
*ORDS,%1 
CERROKI,4 
(09,%3 
(Ode 
©(0),TEMP 
(0),(0) 
(CO)e,(0)¢ 
©(0),TEYP 
#2,%0 

1 

TIA 

TiB 
(6)oe(6)¢ 


TIA 


POMADD,%0 
WORDS,€! 
86,4 

TEMP 
(0),%3 
(0)¢. TEMP 
TEMP,%3 
12B 


T2a 
©(0)-TEMP 
Tac 


T2B 
(0),¢0) 
T20 


T2c 
CO)er"(0) 
T2E 


Tao 
(0)¢ 
$1 
T2A 


pSET STACK PTF 

sGET POM ADDRESS 

sGET ADDPESS COUNTER 
sSET UP TIME OUT VECTUR 
pREFERENCE 

sPOM 

’ 

’ 

L] 


SINCREMENT POINTER 

pDECREMENT ADDRESS COUNTER 

pBRANCH IF NOT FINISHED 

sGO TO SCOPE LOOP 

sREPOSITION STACK 

sERROR! ROM TIMED OUT WHEN REFERENCED 
sADORESS IS IN RO 

SLOOP ON ERROR 


TEST THAT ROM DATA CAN BE READ RELIABLY, 


#GET ROM ADDRESS 

9GET ADDRESS COUNTER 
pINITIALIZE TIME CUT VECTOR 
SINITIALIZE TEVP 

sGET DATA 

gADD DATA TO TEMP 
sSUBTRACT DATA FROM DATA 
gBRANCH IF EQUAL 

sDATA ERROR 

sLOOP ON ERROR 

sCLEAR TEMP BITS 

sBRANCH IF EQUAL TO 0 
sDATA ERROR 

#LOOP ON ERROR 

gCOMPARE DATA 

sBPANCH IF EQUAL 

sDATA ERROR 

sLOOP ON ERROR 

sCOMPARE DATA (BYTE OPERATION) 
pBRANCH IF EQUAL 

9DATA ERROR 

#LOOP ON ERROR 

sINCREMENT ADDRESS POINTER 
sDECREMENT ADDRESS COUNTER 
sRETURN IF NOT DONE 


TEST UZPYK VT20 ROCTSTRAP LOADEF 


DZR“K, SRC 


001652 
0v1656 
901662 
001666 
001674 
001676 
001700 
001702 
001710 
Ov01712 
001714 
001716 
001720 
001726 
001730 
001734 
001736 
001740 
001742 
001744 
001746 
001750 
001786 


001760 
001764 
001770 
001774 
002000 
002002 
002004 
002006 
002010 
002012 
002014 
002016 
002020 
002024 
002030 
002032 
002034 
002040 
002044 
002046 
002050 
002056 
002060 
002064 
002070 
002072 





012706 
016700 
016701 
012767 
010010 
104400 
000775 
012767 
022626 
005210 
104400 
000775 
012767 
022626 
005077 
104400 
000774 
008720 
022626 
005301 
001347 
012737 
104000 


612706 
016701 
016700 
016703 
021013 
001004 
005301 
001441 
022023 
000772 
000004 
003414 
010067 
004767 
000004 
003501 
011067 
004767 
900604 
003414 
932737 
901374 
010367 
004767 
000004 
903505 


000500 
177444 
177432 
001702 


001720 


001740 
177372 


000006 


0c0S800 
177330 
177332 
177322 


001110 
001106 


001074 
001072 
040000 


001050 
001046 


176110 


176074 


176056 


000004 


177570 


VMACY11,024 


ZleJAveT74 


ic30cs 
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sTEST3 TEST THAT POM TIVES OUT IF REFERENCED BY OTHER 
sTHKAN DATI BUS CYCLE 


T33 


TIAAS 
TIA$ 


T3B3 
T3Cs 


T3IDs 
T3IEs 


T3F% 


"Cv 
¥OV 
“ov 
voy 
vov 
HLT 
BR 
voVv 
cup 
INC 
KLT 
BR 
woV 
cup 
CLR 
MLT 
BR 
TST 
cre 
DEC 
BNE 
voV 
SCOPE 


SSTKPTR,%6 


POMADC,$9 
wORDS,%1 
®T3be4 
%0,(0) 


T3A 
eT3D.4 
(6)e.(6)¢ 
(0) 


T3¢ 

TIF .4 
(6)o,(6)¢ 
@ROMADD 


T3E 
(O)¢ 
(6)4.(6)¢ 


9SET STACK PTR 

9GET POM ADDPESS 

9GET ADDRESS COUNTER 

sSET UP TIME OUT VECTOR 
pATTEMPT TO ALTER DATA 
pHERE IF DID NOT TIME OUT 
sLOOP ON ERPOR 

#SET UP TIME OUT VECTOR 
sREPOSITION STACK 
pATTEMPT TO ALTER DATA 
sHEPE IF DID NOT TIMF OUT 
#LOOP ON ERROR 

pSET UP TIME OUT VECTOR 
PREPOSITION STACK 
sATTEMPT TO ALTER DATA 
pHERE IF DID NOT TIME OUT 
sLOOP ON ERROR 

pINCREMENT ADDRESS POINTER 
#REPOSITION STACK 
sDECREMENT ADDRESS COUNTER 
sRETURN IF NOT DONE 
pRESTORE TIME OUT TRAP 
sSCOPE LOOP 


sTHIS TEST COMPAPES RO™ AND IMAGE DATA 


sAND TYPES OUT DIFFERENCES 
OSTKPTR,%6 


T4s 


T4B3 
T4C2 


T4Ds 


MOV 
MOV 
MOV 
MOV 
CMP 
BNE 
DEC 
BEG 
CMP 
BR 
TYPE 
Ma 
“ov 
JSR 
TYPE 
“10 
“CV 
JSP 
TYPE 
Me 
PIT 
BNE 
vOV 
JSR 
TYPE 
Mi2 


WORDS,%1 
ROMADD,%0 
IMAGE .%3 
(0),¢3) 
T4D 

$1 

T4E 

CO)oe (3) 
T4B 


%0,D2BTYP 
7,02A 


(0),D28TYP 


7,O2A 


16 
%3,D2BTYP 
7,02A 


sSET STACK PTR 
sGET @ OF WORDS 
sGET ROM ADDRESS 
9GET IMAGE ADDRESS 
sCOMPARE DATA 


pALL DATA BEEN COMPARED 
pINCREMENT ADDRESS POINTERS 


sTYPE 
sROM ADDRESS 


sSEPARATOR 
sTYPE 
sROM DATA 
sCR/LF 


sTYPE 
sIMAGE ADDRESS 


s SEPARATOR 


TEST OZE¥K VT20 BOCTSTRAP LOADER 


DZBYK SRC 


002074 
902100 
002104 
002106 
002110 
002112 


002114 
002120 
002126 
002130 
002234 
002136 
002140 
002144 
002152 
002156 
002162 
002164 
002166 
002170 
002172 
002174 
002200 


011367 
004767 
000004 
063414 
600735 
104000 


005267 
026727 
001402 
000167 
000004 
003507 
005267 
016767 
004767 
013700 
001404 
004710 
000240 
000240 
000240 
000167 
000000 


001034 
001032 


1771606 
177154 


177312 
000034 
000030 


000760 
000042 


177242 


006100 


000762 


MACY11.6024 21°JAnNeT4 


“UV 
JSP 


TYPE 


v6 
PR 
T4463 


EsDs Ine 
cveP 
BEG 
J¥eP 
CONES 


INC 
voV 
JSR 
MOV 
REG 
JSR 
NOP 
NOP 
NOP 
DONEIs JMP 
PCTs L] 


SCCPE 


TYPE 
“BELL 


(3) ,D28TYE 
7,O2A 


Tac 


ICNT 
ICNT, 8100 
DONE 
PRGOR 


PCAT 
PCNT,D2BTYP 
Q7,U2Aa 
0842,%9 
CONE! 

7,0) 


10:05 PAGE ieS 


tTYPE 
sIMAGE DATA 


ICR/LF 
9G0 TO T4C 
PINCREMENT PASS COUNT 


9GO RESTART PROGRAM 
PRING THE BELL 


#GET PASS COUNT 
SRETURN TO DECTAPE MONITOR? 
pRETURNI 


#PASS COUNT 





TEST (Z5"k VT20 ROCTSTFAP LOADEF MACY11,624 2i1eJANe74 10305 PAGE 2 
DZBYK,SkC 


sTHIS PRKCGRA” TYPES OUT ROM DATA 


002202 005067 000234 PPGi8 CLF PRG2# sINITATE A DELAY 

062206 08267 000230 rnc PRG2B AND EXECUTE DELAY 
C02212 001375 BNE 24 

002214 006767 001102 JSP %7,RESBF pRESET BUFFER AFEA 
092220 912706 000500 MOV @STKPTR,%6 sINITIALIZE STACK 
002224 000004 TYPE 

002226 003377 “7 s°ROM DATA® 

902230 016703 177064 voV WORDS, %1 sGET @® OF WORDS 
002234 016700 177066 PRGiIAs “OV ROMADD,%0 9GET STARTING ADDRESS 
062240 912702 000611 “OV @11,%2 3GET ADDRESS INDICATOR 
002244 010067 000664 PPGiBs wvoV 80,02 TYP 1GET ADDRESS 

002280 004767 C00662 JSP 7,02A sAND TYPE IT 

002284 000004 TYPE 

002256 003414 “6 sCR/LF 

002260 012067 000650 PRGiCs FOV (0)¢,D2BTYP sTYPE 

002264 004767 000646 JSR 7,02A sOATA 

902270 000004 TYPE 

002272 903503 wil 

002274 905301 DEC 1 pALL DATA TYPED. 
002276 9601407 BEG PRGID 9GO TO FINISH 

902300 0085302 DEC &2 

002302 001366 BNE PRGIC PRETURN TO PRGIB 
002304 012702 000013 MOV #11,%2 sGET ADDRESS INDICATOR 
002310 900004 TYPE 

002312 903414 Me sCR/LF 

002314 000753 BR PRGIB RETURN TO PRGIB 
002316 000167 177050 PRGIDs JMP FIXED 3GO0 GET NEXT TEST 


sTHIS PPOGRAM CYCLES A SINGLE ADDRESS (ADDRESS MUST BE EVEN) TO CHANGE 
sTHE ADDRESS TYPE NEW ADDRESS ON THE TTY, 


002322 012706 000500 PRG28 MOV SSTKPTR,%6 PINITIALIZE STACK POINTER 
002326 012737 002510 000004 MOV @PRG2C,084 sLOAD TRAP ERROR VECTOR 
002334 005067 175436 CLR PSw #CLEAR PROCESSOR STATUS 
002340 012737 002412 0600320 MOV CPRG2A,@@FKVEC sLOAD KEYBOARD INTERRUPT VECTOR 
002346 0612737 000340 000322 vovV @340,08FKVECS2 LOAD KEYBOARD PRIORITY 
002354 32737 000101 170334 BIS 0101 ,08FKS sSET INTERRUPT ENABLE BIT 
002362 016700 176740 MOV ROMADD,%0 9GET ROM ADDRESS 

002366 0600004 PRG208 TYPE 

002370 003663 “CYC 

002372 010067 000536 vOV Q0,D2ETYP 

002376 004767 000534 JSP 7,02A 

002402 000004 TYPE 

002404 003414 wg 

002406 005710 TST (0) #READ ROM ADDRESS 

002410 000776 BP 272 #LOOP 

002412 105767 165716 PRG2As TSTB FKS sD0ID KB INTR? 

002416 100407 BMI 4s s¥ES, GET INFO 

002420 052767 000002 165706 BIs ®2,FKS 

C02426 052767 000101 165700 BIS ®1015FKS 

002434 000002 RTT gNO © EXIT 

002436 004567 v00064 463 JSR 95,RECD 9G0 GET ADDR & 

002442 900000 PRG2B3 0 sPUT IT HERE 


LLL LLL LLL 


TEST (2#"K VTZ20 BOOTSTPAP LOADER WACY11,.624 21eJAN©74 10305 PAGE 291 
DZB“K , SRC 
602444 016700 177772 vcov PRG2B,%0 
002450 900004 TYPE 
002452 003414 “6 sCR/LF 
002454 026727 177762 173000 CHP PRG2B,#173000 
002462 002415 BLT PRER 
002464 ©€26727 177752 173100 CMP PRG2B,0173100 
902472 002011 BGE PRER 
002474 012737 002412 000320 PRERNs “CV OPRG2A,O8FKVEC 
002502 022626 cvP (6)¢,(6)¢ pRESET STACK POINTER 
002504 000167 177656 JuP PRG20 
002510 104400 PRG2Cs HLT sERROR! DID YOU TYPE AN ODD ADDRESS? 
002512 000167 177726 JMP PRG2Be2 sTRY ADDRESS AGAIN 
002516 900004 PRERS TYPE 
002520 003632 wA 


002522 000167 177746 JHP PRERN 





TEST CZAYK VT20 RCOOTSTRAP LOADER 


DZPMK,SFC 


002526 
002534 
002536 
002542 
002550 
002556 
002562 
002566 
002570 
002572 
002576 
002600 
902604 
002010 
002614 
002616 
002620 
002622 
002624 
002630 
002636 
0026044 
002646 
002650 
002654 
002656 
002662 
002666 
002670 
602674 
002676 
002700 
002702 
002704 
002706 
002710 
002712 


002714 
002720 
002726 
002730 
002732 
002736 
002740 
002742 
002744 
002746 
002754 


0432767 
c05015 
605067 
082767 
052767 
005067 
005767 
001775 
009205 
105737 
100063 
113746 
042716 
122716 
001015 
000004 
603414 
022526 
005267 
052767 
052767 
000002 


000000 


022716 
001002 
000137 
022716 
001012 
112744 
000241 
006015 
000241 
006015 
000241 
006015 
005726 
000415 


011667 
042767 
000004 
003134 
042716 
006315 
006315 
006315 
052615 
052767 
052767 


002572 


000104 
000002 
000101 
175214 
000060 


170334 
170336 


177700 
000015 


000016 
000002 
000101 
000003 


000200 
000077 


000040 


000214 
177400 


177770 


000002 
000103 


MACY11,624 21eJANe74 
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sROUTINE TO RECEIVE DATA TYPED IN ON THE KEYBOARD, THE DATA IS PLACED IN 
#THE ADDRESS FOLLOWING THF JSR CALL! 


5 
175564 


165564 
165556 


RECDIis 


RECDI8s 


165476 
165470 


DONF Ss 


165360 REX: 
165352 


u 
RECDS 


MOV 
CLP 
CLF 
BIS 
BIS 
CLR 
TST 
BEO 
RTS 
TSTB 
BPL 
“ove 
BIC 
CMPB 
BNE 
TYPE 
“Be 
CP 
Inc 
BIs 
bIs 
RTI 
0 
CMP 
BNE 
JMP 
CMP 
BNE 
MOVB 
cLe 
ROR 
cue 
ROP 
cLc 
ROP 
TST 
BR 


MOV 
BIC 
TYPE 
D2BTYP 
BIC 
ASL 
ASL 
ASL 
BIS 
BIs 
BIs 


JSP S,RECD 
0 


SRECDI,FKVEC 
(5) 

DONF 

@2,FKS 
8101,FKS 

PSs 


@eFKB,°(SP) 
6177700, (SP) 
615,(SP) 
DONFe2 


(RS)¢,(SP)¢ 
DONF 

82,FKS 
®L01,FKS 


83,(SP) 
e¢6 
@8200 
¢77,(SP) 
28 
#40,°(4) 


(5) 
(5) 
(5) 
(6)¢ 
REX 


(SP),D02BTYP 


€177400,D2BTYP 


€177770,(SP) 
(S$) 

(5) 

(5) 
(SP)+,(5) 
@2,FKS 
@101,FKS 


sCALL PECEIVE DATA ROUTINE 
pOATA IS PLACED HERE 


STEST KEYBOARD FLAG 

gAND WAIT FOR CHARACTER 

9GET CHARACTER 

sSTRIP PARITY BIT 

sCHECK IF CARRIAGE RETURN 
#BRANCH IF NOT CARRIAGE RETURN 


sADJUST PS AND THE STACK PTR 
pRETURN TO CALLER 


sDID OPERATOR TYPE KUBOUT? 
sNO@CONTINUE 

SYESeREPLACE LAST CHARACTER 
sWITH A SPACE AND 

pRIGHT JUSTIFY CURRENT NUMBER 


sECHO CHARACTER 
sSTRIP WORD 
sECHO CHARACTER 


#STRIP AWAY ALL BUT 3 LSB 
sROTATE 

sPREVIOUS 

sDATA 

pAND INSERT CHARACTER 
sGET NEXT CHARACTER 


TEST CZBMK VT20 ROOTSTPRAP LOADER MACY11,024 2ieJAN@©74 10805 PAGE 23 


DZBMK,SRC 
002762 000002 RTI 
pSCOPE ROUTINE, TKIS ROUTINE IS ENTERED AT THE END OF EACH SUBTEST, 
002764 032737 040000 177870 ,SCOPES BIT 840000,@8SaR #TEST SR FOR SCOPE 
002772 901030 BNE A2s sYES SCOPE 
002774 900611 BR A36 sNOP IF FOR XUR 
002776 013746 000004 vOV @84,°(%6) 
003002 012737 003064 000004 wOV @xOR,@84 
003010 005737 177060 TST @0177060 
003014 912637 000004 “OV (86)o,004 
903020 032737 004000 177570 A361 PIT 84000,@8SaP yTEST FOR ITERATION 
003026 001006 BNE Ais SINHIBIT ITERATION 
03030 005267 176248 rnc ITChT pINCREMENT ITERATION COUNT 
003034 ©26767 176242 0600206 CMP ITCNT, ICOUNT PITERATION COMPLETE 
003042 003004 8GT Rae pBRANCH IF ITERATIONS NOT COMPLETE 
003044 005067 176232 Ai6s CLP ITCnT sCLEAR ITERATION COUNT 
003050 011667 176230 vOoV (SP),/LASTPC 9GET ADDRESS OF NEXT TEST 
003054 O16716 176224 A263 vOvV LASTPC, (SP) 
003060 000602 RTI sEXIT 
003062 000005 TCOUNT?s S$ 
003064 012626 XOR8 MOV (86)¢,(86)¢ 
003066 ©12637 000004 MOV (86)0,004 
003072 000770 BP Aas 
pERROR ROUTINE, THIS ROUTINE IS ENTERED WHEN AN ERROR IS DETECTED, 
003074 033727 177570 020000 ,HLTs BIT @sSHR,820000 PINHIBIT PRINTOUT? 
003102 00140: BEO 004 sBRANCH IF ERROR PRINT OUT 
003104 000602 RPT! PRETURN TO TEST 
003106 c00004 TYPE 
003110 003356 ERRORM s°PCe - 
003112 011667 000016 “OV (6),028TYP sTYPE PROGRAM COUNTER 
003116 004767 000014 JSP 7,02A 
003122 065737 177570 TST OeSaR sHALT ON ERROR? 
003126 10000) BPL ee4 ’ 
003130 ©00000 MALT sYES HALT 
093132 000002 RTI sRETURN TO TEST 





TEST C75 *h VTZ20 FONTSTRAP LOADE® 


PZRYK SHC 


O9134 OKC? 
NO31368 010246 
0939440 “10146 
03142 ry0onde 
03144 fie oo 
OC3ISO 012703 
003184 0002 
093186 006100 
103160 06102 
003162 002702 
003166 042702 
003172 010267 
903176 900006 
003200 003134 
903202 908002 
003204 006100 
003206 006402 
063210 206100 
003212 006102 
003214 006100 
903216 006102 
003220 908301 
003222 001357 
003224 12600 
003226 012601 
003230 012602 
003232 000267 


003234 %17667 
903242 117724 
003246 60142¢ 
903250 121427 
903254 001004 
903286 005267 
£03262 100401 
003264 000405 
003266 005267 
003272 020427 
003276 902761 
003300 004767 
003304 000167 


©03310 105744 
003312 062716 
003316 00002 
903320 000000 
903322 012704 
003326 112724 
003332 020427 
003336 001373 


177764 
CCCOGe 


000260 
177700 
177736 


000000 
000052 


000012 
000072 
000026 
005622 
000016 
177724 
000002 


004100 
000031 
005023 


000656 


“RCOYI1,624 


sTHIS PCUTT.E CONVERTS AN OCTAL NUMBER Tf ASCIT AND TYPES IT Us THE TY, 


b2eTYF: 4 
O2a3 rOV 


1863 aot 


Z1leJAve74 


&Rerel(e) 
$1,e(6) 
Bu,e(e) 
DZRTYF,%9 


246%? 
81777C0,R2 
R2,02ETYP 


82 
&u 
&2 
80 
$2 
aco 
%2 
1 
is 
(6)¢,%9 
(6)¢,81 
laden 


16395 
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SSAVF R2 
SAVE By 
SAVE RO 


#GET DATA TO BF TEPED 


tGET COUNTER 


SCLEAM eO0KKING FEGISTEF 


mYCV FIRST BIT (¥SR) INTO 


52 


sFOR™ ASCII CODPeSTCP CUDe (31) 


#CLEAR wORKING KEGISTER 


gPOTATE THE 
INEXT 


sOCTAL CHAPACTER 


sINTO 
sREGISTER 
9TwO 


sDECPREMENT COUNTER 


1GO TO O2AA 
SFINISHED, 
’ 


’ 
pAND EXIT 


: 
#THIS ROUTINE SENDS MESSAGES TO 


sTUSE 


VTOUTs MOV 


VTOUTIs “OVE 


EQ 


C™PB 


BNE 
Tne 
BMT 
BR 
iss Inc 
cP 
BLT 
263 JSP 
JMP 


VTOUTES TSTB 


ADD 

RTI 
OUTTs 0 
RESEFs MOV 


1638 “OVb 


CMP 
BhE 


@(6),OUTT 
@OUTT, (4) ¢ 
VIOQUTE 


VTOUTI 
&7,RESBF 
vTouT 


(4) 
62,(6) 


SPBUFF,R4 
#31,(4)¢ 
R4,8PHEo) 
is 


#THIS ROUTINE RESETS PRINTOUT 


IF SOT O 


RESTOPF REGISTERS 


pAREA TO ALL EOS 


® @eeeee@ee@eeee@ee@eeeeeeeeeeeé® 





TEST CZA¥K VT20 
DZFMK,SEC 


003340 
003344 
903352 


003354 


ROOTSTRAP LOADEF 


012704 
012767 
000207 


177762 


004100 
177762 000002 


MACY11,624 21eJA%©e74 10805 


“ov SPRUFF.PR4 
voV @o14,,8ETCNT 
RTS a7 


RETCNT? #14, 
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TEST DZhMK VT20 ROOTSTRAP LOADER 


DZBMK,SRC 


003356 
003364 
003365 
003372 
063377 
003404 
003412 
903414 
003417 
003424 
003432 
003440 
003446 
003454 
003462 
003470 
003476 
003501 
003503 
003505 
003507 
03514 
003522 
003523 
003526 
0u3531 
003534 
003537 
903542 
003545 
003550 
003553 
003560 
003566 
003574 
903575 
903602 
003610 
003616 
003624 
003632 
003640 
003642 
003650 
003686 
003663 
003670 
003676 
003704 
003712 
003720 


008015 
000 
015 

021507 
01s 

042040 

000012 

005015 
015 

040440 

981523 

942507 

042522 

046817 

025194 

920105 

905015 
087 
040 
052 
015 

050040 
040 
046 
040 
040 
040 
040 
040 
040 
015 
015 

926504 

041132 
040 
374 

041040 

051124 

040817 

042524 

005015 

176040 

020101 

042101 

170123 
015 

044504 

052101 

046517 

042522 
000 


003776 


041520 


173012 
170078 
081012 
082103 


000 
081012 
042104 
044457 
040440 
0$1523 
042040 
046511 
040504 

000 

000 

000 

000 
042412 
051501 


040 
040 
040 
040 
040 
040 
040 
012 
005012 
030461 
045515 


052126 
047517 
050103 
042504 
052123 
047362 


047522 
051104 
006412 
051012 
043516 
020101 
040440 
051523 


020078 


051120 

600 
046517 
006501 


046517 
042522 
040515 
042104 
051040 
052101 
043501 
040524 


042116 
020123 


040 
040 
040 
040 
040 
0406 
040 
000 
046764 
042055 
041055 


030062 
051524 
046040 
020122 
000360 
052117 


020115 
051505 

000 
040505 
042040 
051106 
042104 
020072 


MACY11,024 


pASCII MESSAGES 


ERRORS 
Mot 


v78 


M103 
Mils 
M128 
MBELLI 


“CyYCs 


eASCIZ 
eASCIZ 
eASCIZ 


eASCIZ 
eASCIZ 


eASCIZ 
eASCIZ 
eASCIZ 
ASCII 


eBYTE 


BYTE 


eASCII 


eASCIZ 


eASCII 


eASCIZ 


eASCIZ 


923776 


2Z1eJAN©74 #10305 PAGE 3 


<€15><12>°pCe ° 
€153€12>¢€366>°PRGes°<360> 


€153¢€12>°ROM DATA°<19><€12> 


<15><12> 
€15>€12>°RO™ ADDRESS/I“AGE ADDRESS RO” DATA@IMAGE DATA°<15><12> 


ose 
ee 
ee? 
€153€12>/END PASS / 


400 405405 404405405407 40540740,40,40 


40040540 440440540,4074054051551200 


€153€123€12>¢364>/MDeLLeDZBMKeoB / 


€374>/VT20 BOOTSTRAP LOADER TEST/<360> 


€15>€12>¢€362>/NOT/<40><¢374> 


4A ROP ADDRESS/<360><12><15> 


€15>€12>/READING DATA FROM ADDPESS# / 





TEST CZB¥YK VT20 
DZAMK,SRC 


903776 


004000 
0904006 
004010 
004016 
004020 
04026 
004030 
004036 
004040 
004046 
004050 
004056 
004060 
004066 
004070 
004076 
094100 


005022 
005025 


ROOTSTRAP LOADER 


000000 


012701 
000006 
912703 
010742 
110706 
100775 
010712 
010441 
940601 
005214 
105714 
900002 
005211 
901366 
105222 
175610 
900000 
905022 

031 

031 


000001 


160000 
173160 
014304 
012706 
010111 
100376 
120227 
000142 


031 


012702 
008012 
005714 
000024 
011102 
116412 
000375 
177560 


031 


MACY11,.624 2ieJANe©74 10305 PAGE Jel 


eAOkD 


sCATA CUT IVTO THE “7920yK 


PBUFF Ss 
PBEs 


0127014160000,032702,000006 
012703,173100,005012,910742 
110706,014304,005714,190775 
010712,012706,900024,010441 
040601.010111,011102,005214 
195714,100376,116412,000002 
005211+120227,000375,001366 
105222,000142.177560.175610 
9 


22,0720 
ePBYTE 33-31,31,31 


eo END 


| 
| 


TEST J Z8"K VT20 BOOTSTRAP LOADER 
OZare sec 


Ais 
PISsere 
D2RTY+ 
ERGFIG 
ERE VEC 
FRVEC 
eo. fT 
IOTTVEC 
“cyc 
wii 

"6 
PAFYVEC 
PCT 
PPE 
PRG” 
PRCIE 


R3 
SCPBLK 
START3 
TEve 
TKVEC 
TRAPVE 
Tia 
T2B 

T3 

T3¢c 

T4 

T4E 
VTOUTE 
*®ORDS 


ERPOFS NETECTED?: 


COC 
s 177870 
393134 
001310 
= 090004 
= ylC329 
003082 
=z 190920 
C0 3663 
oo3se3 
oogei4 
= 900914 
oe22c0c 
u02814 
9014902 
002244 
692412 
901336 
092562 
003354 
s8900001 
38009003 
28000003 
001300 
000210 
001324 
zs 090060 
s 000034 
001504 
001610 
001682 
001712 
001760 
002112 
093310 
061320 
zs 005026 


SY“KOCL TABLE 


MACY11,024 


A28 003054 
DONE 092134 
EMTVEC #& 600030 
ERROR 003356 
FIXED 001372 
FREVEC s 000244 
IMAGE 001322 
ITCT 001302 
“HED 003553 
“12 003505 
“9 003417 
PBE 005022 
PFVEC #8 000024 
PRERN 002474 
PFGOR 001446 
PRGIC 0022¢€0 
PRG2B 002442 
PSia @ 177776 
RE SBF 003322 
REX 002746 
R10 88000000 
R14 88000004 
R4 88000004 
SLR s 177774 
STKPTR s& 000500 
TICKS 001312 
Tes 8 177566 
TRIVEC s 000014 
T18 001844 
Tac 001622 
T3A 001674 
T3D 001720 
T48 002000 
UBREAK s 177770 
VTOUT! 003242 
XOR 003064 


Z1)eJa.o74 
A38 003020 
rese| 002174 
ENC oC2114 
FRROPY 091836 
Fra @ 176336 
KLT s 104400 
IACSP 001314 
LASTPC 001364 
“vVFC s ¢oco@sc 
"6 003365 
cuTT 003320 
PBILFF 004100 
PIPRG @ 177772 
PRGAUM 0014C6 
PPRG1 0022¢2 
PRGID 002316 
PFG2C 002810 
RECD 092526 
PESTAR 001424 
ROMADD 001326 
Pil 88000001 
P15 88000005 
RS #e00000S 
SP 88000006 
Sor es 177870 
TKB 8s 177862 
TPS Ss 177864 
TYPE s 000004 
T2 001546 
T2D 001632 
T3AA 001666 
T3E 001730 
T4c 002004 
vt¢ ® 170304 
vTs 8 170302 
eHLT 003074 
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PPTVEC 
DONF 
EPC 
ERROR2 
FKS 
ICNT 
INDAT 
“BELL 
"10 

“? 

O2A 

PC 
PIRVEC 
PRGTAB 





® 000014 
002646 
001306 
601604 

8 170334 

# 001300 
001316 
003507 
003501 
003377 
003136 

88000007 

8 000240 
001330 
002234 
002322 
002366 
002572 

8s 000010 

88000000 

88000002 

88000002 

® 104000 
000200 

@ 000014 

s 177560 

8 000064 
001462 
001564 
001642 
001702 
001740 
002014 
003234 
003632 
002764 


